---
title: "RESULTADO MENSAL"
output:
flexdashboard::flex_dashboard:
orientation: rows
#vertical_layout: fill
vertical_layout: scroll
logo: pp.png
social: [ "twitter", "facebook","google +", "linkedin", "pinterest" ]
source_code: embed
#runtime: shiny
---
```{r setup, include=FALSE}
#devtools::install_github("jeromefroe/circlepackeR")
#library(devtools)
library(flexdashboard)
library(readxl)
library(tidyr)
library(plotly)
library(ggmap)
library(RColorBrewer)
library(treemap)
library(hrbrthemes)
library(circlepackeR)
library(data.tree)
library(babynames)
library(viridis)
library(dplyr)
library(lubridate)
library(DT)
#library(d3treeR)
library(chorddiag)
library(circlize)
library(igraph)
library(networkD3)
#setwd(dirname(rstudioapi::getActiveDocumentContext()$path)) #set no local onde o script está
#função criada para computar quantos dias tem o mês
numberOfDays <- function(date) {
m <- format(date, format="%m")
while (format(date, format="%m") == m) {
date <- date + 1
}
return(as.integer(format(date - 1, format="%d")))
}
######## LEITURA DOS BANCOS DE DADOS
arquiteto <- read_excel("C:/Users/pedro.silva/OneDrive - Sicoob/PAUTA_MARKETING/SUPORTE DE QUALIDADE/ARQUITETO/PROJETOS_ARQUITETO.xlsm", sheet=1)
arquiteto$`DATA DE ENTREGA`=as.Date(arquiteto$`DATA DE ENTREGA`, origin = "1899-12-30")
redacao <- read_excel("C:/Users/pedro.silva/OneDrive - Sicoob/PAUTA_MARKETING/SUPORTE DE QUALIDADE/REDAÇÃO/01.REDATOR.xlsm", sheet=1)
redacao$`DATA DE ENTREGA`=as.Date(redacao$`DATA DE ENTREGA`, origin = "1899-12-30")
audiovisual=read_excel("C:/Users/pedro.silva/OneDrive - Sicoob/PAUTA_MARKETING/SUPORTE DE QUALIDADE/SAULO - AUDIO VISUAL/AUDIO_VISUAL.xlsm", sheet = 1)
audiovisual$`DATA DE ENTREGA`=as.Date(audiovisual$`DATA DE ENTREGA`, origin = "1899-12-30")
projetos <- read_excel("C:/Users/pedro.silva/OneDrive - Sicoob/PAUTA_MARKETING/SUPORTE DE QUALIDADE/GABI/GABI_GLPI.xlsm", sheet = 1)
projetos$`DATA DE ENTREGA`=as.Date(projetos$`DATA DE ENTREGA`, origin = "1899-12-30")
digitais <- read_excel("C:/Users/pedro.silva/OneDrive - Sicoob/PAUTA_MARKETING/SUPORTE DE QUALIDADE/MKT DIGITAL/PROJETOS_MKT_DIGITAL.xlsm", sheet=1)
digitais$`DATA DE ENTREGA`=as.Date(digitais$`DATA DE ENTREGA`, origin = "1899-12-30")
########
maindata=merge(arquiteto, redacao, all=T) %>% merge(audiovisual, all=T) %>% merge(projetos, all=T) %>% merge(digitais, all=T)
maindata=maindata %>% filter(!`DATA DE ENTREGA`% filter(`DATA DE ENTREGA`>=(as.Date(cut(Sys.Date(), "month")) %m-% months(1)) & `DATA DE ENTREGA`<(as.Date(cut(Sys.Date(), "month")) %m-% months(1) + numberOfDays((as.Date(cut(Sys.Date(), "month")) %m-% months(1)))))
arquitetomensal = arquiteto %>% filter(`DATA DE ENTREGA`>=(as.Date(cut(Sys.Date(), "month")) %m-% months(1)) & `DATA DE ENTREGA`<(as.Date(cut(Sys.Date(), "month")) %m-% months(1) + numberOfDays((as.Date(cut(Sys.Date(), "month")) %m-% months(1)))))
audiovisualmensal = audiovisual %>% filter(`DATA DE ENTREGA`>=(as.Date(cut(Sys.Date(), "month")) %m-% months(1)) & `DATA DE ENTREGA`<(as.Date(cut(Sys.Date(), "month")) %m-% months(1) + numberOfDays((as.Date(cut(Sys.Date(), "month")) %m-% months(1)))))
digitaismensal = digitais %>% filter(`DATA DE ENTREGA`>=(as.Date(cut(Sys.Date(), "month")) %m-% months(1)) & `DATA DE ENTREGA`<(as.Date(cut(Sys.Date(), "month")) %m-% months(1) + numberOfDays((as.Date(cut(Sys.Date(), "month")) %m-% months(1)))))
projetosmensal = projetos %>% filter(`DATA DE ENTREGA`>=(as.Date(cut(Sys.Date(), "month")) %m-% months(1)) & `DATA DE ENTREGA`<(as.Date(cut(Sys.Date(), "month")) %m-% months(1) + numberOfDays((as.Date(cut(Sys.Date(), "month")) %m-% months(1)))))
redacao = redacao %>% filter(`DATA DE ENTREGA`>=(as.Date(cut(Sys.Date(), "month")) %m-% months(1)) & `DATA DE ENTREGA`<(as.Date(cut(Sys.Date(), "month")) %m-% months(1) + numberOfDays((as.Date(cut(Sys.Date(), "month")) %m-% months(1)))))
#comando para adicionar o mês anterior
#(as.Date(cut(Sys.Date(), "month")) %m-% months(1))
#comando + função numberOfDays para identificar o ultimo dia do mês passado
#(as.Date(cut(Sys.Date(), "month")) %m-% months(1) + numberOfDays((as.Date(cut(Sys.Date(), "month")) %m-% months(1))) - 1)
```
Arquitetura
=====================================
Row {data-width=150}
--------------------------------------
### Total de serviços prestados pelo nucleo de arquitetura
```{r, label = "Cabeçalho Arquiteto 1"}
totalservicos=arquiteto %>% filter(STATUS!="NOVO") %>% filter(!CATEGORIA %in% c("Dúvidas/Envio")) %>% nrow()
valueBox(value = totalservicos,icon = "fa-calendar",caption = "Total de serviços prestados no ano",color = "#7DB61C")
```
### Total de serviços feitos pelo nucleo de arquitetura no mês
```{r, label = "Cabeçalho Arquiteto 2"}
servicosmensal=arquitetomensal %>% filter(STATUS!="NOVO") %>% nrow()
valueBox(value = servicosmensal,icon = "fa-thumbs-up",caption = "Total de serviços prestados no mês",color = "#00AE9D")
```
### Total de reformas de fachadas
```{r, label = "Cabeçalho Arquiteto 3"}
reformafachada=arquitetomensal %>% filter(STATUS!="NOVO") %>% filter(CATEGORIA %in% "Reforma_fachada") %>% nrow()
valueBox(value = reformafachada,icon = "fa-pencil",caption = "Reformas de fachadas feita no mês",color = "#49479D")
```
### Total de reformas de agências no mês
```{r, label = "Cabeçalho Arquiteto 4"}
reformaagencia=arquitetomensal %>% filter(STATUS!="NOVO") %>% filter(CATEGORIA=="Reforma_Agência") %>% nrow()
valueBox(value = reformaagencia,icon = "fa-building",caption = "Reforma de agência feita no mês",color = "orange")
```
### Metros quadrados
```{r, label = "Cabeçalho Arquiteto 5"}
#"fa-user-plus"
metrosquadrados=arquitetomensal %>% filter(STATUS!="NOVO"); metrosquadrados=sum(na.omit(metrosquadrados$`METROS QUADRADOS`))
valueBox(value = metrosquadrados,icon = "fa-map",caption = "Soma das metragens no mês (m²)",color = "coral")
```
Row
-----------------------
### Serviços prestados no mês
```{r}
proporcaoprodutos=data.frame(table(arquitetomensal$CATEGORIA))
names(proporcaoprodutos)=c("Funcionário", "Quantidade")
# Create Data
data <- data.frame(
group=proporcaoprodutos$Funcionário,
value=proporcaoprodutos$Quantidade
)
plot_ly(data, labels = ~group, values = ~value) %>%
add_pie(hole = 0.6) %>%
layout(xaxis = list(showgrid = FALSE, zeroline = FALSE, showticklabels = FALSE),
yaxis = list(showgrid = FALSE, zeroline = FALSE, showticklabels = FALSE))
```
### 10 Pontos focais que mais pedem
```{r}
pecas_acumuladas=data.frame(table(arquitetomensal$`PONTO FOCAL`))
plot_ly(pecas_acumuladas, x = ~reorder(Var1, -Freq), y = ~Freq, type = 'bar', name = 'SF Zoo') %>%
layout(barmode = 'group', xaxis = list(title = "Ponto focal"), yaxis = list(title="Quantidade de peças pedidas"))
```
### 10 cooperaivas que mais pedem
```{r}
demandas_cooperativas=data.frame(table(arquitetomensal$`COOPERATIVA SOLICITANTE`))
names(demandas_cooperativas)=c("Cooperativa", "Frequência")
demandas_cooperativas=demandas_cooperativas %>% arrange(Frequência)
n=demandas_cooperativas %>% nrow()
if(n>10){
demandas_cooperativas=demandas_cooperativas %>% slice((n-10):n)
}
p <- plot_ly(demandas_cooperativas, x = ~reorder(Cooperativa, -Frequência), y = ~Frequência, type = 'bar', name = 'SF Zoo') %>%
layout(barmode = 'group', xaxis = list(title = "Cooperativas"))
p
```
Row
-------------------
### Serviços prestados diariamente
```{r}
demandas_mes=arquitetomensal
teste_pecas=data.frame(table(demandas_mes$`TÉCNICO RESPONSÁVEL`, demandas_mes$`DATA DE ENTREGA`))
names(teste_pecas)=c("Colaborador", "year", "n")
teste_pecas$year=as.Date(teste_pecas$year)
# Plot
p <- teste_pecas %>%
ggplot( aes(x=year, y=n, fill=Colaborador, text=n)) +
geom_area( )+
scale_fill_viridis(discrete = TRUE)+
#theme(legend.position="none") +
theme_ipsum()+
scale_x_date(date_labels = "%e %B")
#theme(legend.position="none")
# Turn it interactive
p <- ggplotly(p, tooltip="text") %>% layout(xaxis = list(title="Dia do mês"), yaxis = list(title="Quantidade de peças"))
p
```
### Os 10 não Pontos-focais que mais pedem
```{r}
demandas_cooperativas=data.frame(table(arquitetomensal$`QUEM ABRIU O CHAMADO? (CASO N SEJA O PONTO FOCAL)` ))
names(demandas_cooperativas)=c("Cooperativa", "Frequência")
demandas_cooperativas=demandas_cooperativas %>% arrange(Frequência)
n=demandas_cooperativas %>% nrow()
if(n>10){
demandas_cooperativas=demandas_cooperativas %>% slice((n-10):n)
}
p <- plot_ly(demandas_cooperativas, x = ~reorder(Cooperativa, -Frequência), y = ~Frequência, type = 'bar', name = 'SF Zoo') %>%
layout(barmode = 'group', xaxis = list(title = "Cooperativas"))
p
```
Audiovisual
=====================================
Row {data-width=150}
--------------------------------------
### Total de Vídeos feitos pelo nucleo de audiovisual
```{r}
totalvideos=audiovisual %>% filter(STATUS!="NOVO") %>% filter(!CATEGORIA %in% c("Dúvidas/Envio", "Captação")) %>% nrow()
valueBox(value = totalvideos,icon = "fa-calendar",caption = "Total de vídeos feito no ano",color = "#7DB61C")
```
### Total de Vídeos feitos pelo nucleo de audiovisual no mê
```{r}
videosmensal=audiovisualmensal %>% filter(STATUS!="NOVO") %>% nrow()
valueBox(value = videosmensal,icon = "fa-thumbs-up",caption = "Total de vídeos feito no mês",color = "#00AE9D")
```
### Total de captações feitas
```{r}
captacao=audiovisual %>% filter(STATUS!="NOVO") %>% filter(CATEGORIA %in% "Captação") %>% nrow()
valueBox(value = captacao,icon = "fa-camera",caption = "Total de captação feita no mês",color = "#49479D")
```
### Total de minutos editados no mês
```{r}
minutoseditado=audiovisualmensal %>% filter(STATUS!="NOVO"); minutoseditado=sum(na.omit(minutoseditado$MINUTAGEM))
valueBox(value = minutoseditado,icon = "fa-clock",caption = "Total de minutos editados no mês",color = "orange")
```
### Quantidade de alterações feita no mês
```{r}
alteracoes=audiovisualmensal %>% filter(STATUS!="NOVO"); alteracoes=sum(na.omit(alteracoes$`Nº DE ALTERAÇÕES`))
valueBox(value = alteracoes,icon = "fa-user-plus",caption = "Quantidade de alterações feita no mês",color = "coral")
```
Row
-----------------------
### Serviços prestados
```{r}
proporcaoprodutos=data.frame(table(audiovisualmensal$CATEGORIA))
names(proporcaoprodutos)=c("Funcionário", "Quantidade")
# Create Data
data <- data.frame(
group=proporcaoprodutos$Funcionário,
value=proporcaoprodutos$Quantidade
)
plot_ly(data, labels = ~group, values = ~value) %>%
add_pie(hole = 0.6) %>%
layout(xaxis = list(showgrid = FALSE, zeroline = FALSE, showticklabels = FALSE),
yaxis = list(showgrid = FALSE, zeroline = FALSE, showticklabels = FALSE))
```
### 10 Pontos focais que mais pedem
```{r}
pecas_acumuladas=data.frame(table(audiovisualmensal$`PONTO FOCAL`))
plot_ly(pecas_acumuladas, x = ~reorder(Var1, -Freq), y = ~Freq, type = 'bar', name = 'SF Zoo') %>%
layout(barmode = 'group', xaxis = list(title = "Ponto focal"), yaxis = list(title="Quantidade de peças pedidas"))
```
### 10 cooperaivas que mais pedem
```{r}
demandas_cooperativas=data.frame(table(audiovisualmensal$`COOPERATIVA SOLICITANTE`))
names(demandas_cooperativas)=c("Cooperativa", "Frequência")
demandas_cooperativas=demandas_cooperativas %>% arrange(Frequência)
n=demandas_cooperativas %>% nrow()
if(n>10){
demandas_cooperativas=demandas_cooperativas %>% slice((n-10):n)
}
p <- plot_ly(demandas_cooperativas, x = ~reorder(Cooperativa, -Frequência), y = ~Frequência, type = 'bar', name = 'SF Zoo') %>%
layout(barmode = 'group', xaxis = list(title = "Cooperativas"))
p
```
Row
-------------------
### Produção de vídeo no mês
```{r}
demandas_mes=audiovisualmensal
teste_pecas=data.frame(table(demandas_mes$`TÉCNICO RESPONSÁVEL`, demandas_mes$`DATA DE ENTREGA`))
names(teste_pecas)=c("Colaborador", "year", "n")
teste_pecas$year=as.Date(teste_pecas$year)
# Plot
p <- teste_pecas %>%
ggplot( aes(x=year, y=n, fill=Colaborador, text=n)) +
geom_area( )+
scale_fill_viridis(discrete = TRUE)+
#theme(legend.position="none") +
theme_ipsum()+
scale_x_date(date_labels = "%e %B")
#theme(legend.position="none")
# Turn it interactive
p <- ggplotly(p, tooltip="text") %>% layout(xaxis = list(title="Dia do mês"), yaxis = list(title="Quantidade de peças"))
p
```
### Os 10 não Pontos-focais que mais pedem
```{r}
demandas_cooperativas=data.frame(table(audiovisualmensal$`QUEM ABRIU O CHAMADO? (CASO N SEJA O PONTO FOCAL)` ))
names(demandas_cooperativas)=c("Cooperativa", "Frequência")
demandas_cooperativas=demandas_cooperativas %>% arrange(Frequência)
n=demandas_cooperativas %>% nrow()
if(n>10){
demandas_cooperativas=demandas_cooperativas %>% slice((n-10):n)
}
p <- plot_ly(demandas_cooperativas, x = ~reorder(Cooperativa, -Frequência), y = ~Frequência, type = 'bar', name = 'SF Zoo') %>%
layout(barmode = 'group', xaxis = list(title = "Cooperativas"))
p
```
Mídias Digitais
=====================================
Row {data-width=150}
--------------------------------------
### Total de serviços executados no ano
```{r label = "Cabeçalho digitais 1"}
totalservicos=digitais %>% filter(STATUS!="NOVO") %>% filter(!CATEGORIA %in% c("Dúvidas/Envio")); totalservicos=sum(na.omit(totalservicos$`Nº DE PEÇAS`))
valueBox(value = totalservicos,icon = "fa-calendar",caption = "Total de serviços no ano",color = "#7DB61C")
```
### Total de serviços prestados no mês
```{r}
servicosmensal=digitaismensal %>% filter(STATUS!="NOVO") %>% filter(!CATEGORIA %in% c("Dúvidas/Envio")); servicosmensal=sum(na.omit(servicosmensal$`Nº DE PEÇAS`))
valueBox(value = servicosmensal,icon = "fa-thumbs-up",caption = "Total de serviços no mês",color = "#00AE9D")
```
### Total de Planejamentos execuados no mês
```{r}
planejamento=digitaismensal %>% filter(STATUS!="NOVO") %>% filter(CATEGORIA %in% "Planejamento") %>% nrow()
valueBox(value = captacao,icon = "fa-list",caption = "Total de planejamtos no mês",color = "#49479D")
```
### Total de impulsionamento
```{r}
impulsionamento=digitaismensal %>% filter(STATUS!="NOVO") %>% filter(SERVIÇO=="Impulsionamento") %>% nrow()
valueBox(value = impulsionamento,icon = "fa-arrow-up",caption = "Total de Impulsionamentos",color = "orange")
```
### Valor do impulsionamento
```{r}
impulsionamento=digitaismensal %>% filter(STATUS!="NOVO") %>% filter(SERVIÇO=="Impulsionamento")
impulsionamento=sum(na.omit(impulsionamento$VALOR))
valueBox(value = impulsionamento,icon = "fa-credit-card",caption = "Valor total de Impulsionamento",color = "coral")
```
Row
-----------------------
### Serviços prestados
```{r}
proporcaoprodutos=data.frame(table(digitaismensal$CATEGORIA))
names(proporcaoprodutos)=c("Funcionário", "Quantidade")
# Create Data
data <- data.frame(
group=proporcaoprodutos$Funcionário,
value=proporcaoprodutos$Quantidade
)
plot_ly(data, labels = ~group, values = ~value) %>%
add_pie(hole = 0.6) %>%
layout(xaxis = list(showgrid = FALSE, zeroline = FALSE, showticklabels = FALSE),
yaxis = list(showgrid = FALSE, zeroline = FALSE, showticklabels = FALSE))
```
### 10 Pontos focais que mais pedem
```{r}
pecas_acumuladas=data.frame(table(digitaismensal$`PONTO FOCAL`))
if(nrow(pecas_acumuladas)==0){
print("Não houve pedidos por Pontos-focais")
}else{
plot_ly(pecas_acumuladas, x = ~reorder(Var1, -Freq), y = ~Freq, type = 'bar', name = 'SF Zoo') %>%
layout(barmode = 'group', xaxis = list(title = "Ponto focal"), yaxis = list(title="Quantidade de peças pedidas"))
}
```
### 10 cooperaivas que mais pedem
```{r}
demandas_cooperativas=data.frame(table(digitaismensal$`COOPERATIVA SOLICITANTE`))
names(demandas_cooperativas)=c("Cooperativa", "Frequência")
demandas_cooperativas=demandas_cooperativas %>% arrange(Frequência)
n=demandas_cooperativas %>% nrow()
if(n>10){
demandas_cooperativas=demandas_cooperativas %>% slice((n-10):n)
}
p <- plot_ly(demandas_cooperativas, x = ~reorder(Cooperativa, -Frequência), y = ~Frequência, type = 'bar', name = 'SF Zoo') %>%
layout(barmode = 'group', xaxis = list(title = "Cooperativas"))
p
```
Row
-------------------
### Produtividade diária
```{r}
demandas_mes=digitaismensal
teste_pecas=data.frame(table(demandas_mes$`TÉCNICO RESPONSÁVEL`, demandas_mes$`DATA DE ENTREGA`))
names(teste_pecas)=c("Colaborador", "year", "n")
teste_pecas$year=as.Date(teste_pecas$year)
# Plot
p <- teste_pecas %>%
ggplot( aes(x=year, y=n, fill=Colaborador, text=n)) +
geom_area( )+
scale_fill_viridis(discrete = TRUE)+
#theme(legend.position="none") +
theme_ipsum()+
scale_x_date(date_labels = "%e %B")
#theme(legend.position="none")
# Turn it interactive
p <- ggplotly(p, tooltip="text") %>% layout(xaxis = list(title="Dia do mês"), yaxis = list(title="Quantidade de peças"))
p
```
### Os 10 não Pontos-focais que mais pedem
```{r}
demandas_cooperativas=data.frame(table(digitaismensal$`QUEM ABRIU O CHAMADO? (CASO N SEJA O PONTO FOCAL)` ))
if(nrow(demandas_cooperativas)==0){
print("não houve demandas por não Pontos-Focais")
}else{
names(demandas_cooperativas)=c("Cooperativa", "Frequência")
demandas_cooperativas=demandas_cooperativas %>% arrange(Frequência)
n=demandas_cooperativas %>% nrow()
if(n>10){
demandas_cooperativas=demandas_cooperativas %>% slice((n-10):n)
}
p <- plot_ly(demandas_cooperativas, x = ~reorder(Cooperativa, -Frequência), y = ~Frequência, type = 'bar', name = 'SF Zoo') %>%
layout(barmode = 'group', xaxis = list(title = "Cooperativas"))
p
}
```
Projetos
=====================================
Row {data-width=150}
--------------------------------------
### Total de serviços executados no ano
```{r}
totalservicos=projetosmensal %>% filter(STATUS!="NOVO") %>% nrow()
valueBox(value = totalservicos,icon = "fa-calendar",caption = "Total atividades executadas no mês",color = "#7DB61C")
```
### Tempo gasto em reuniões
```{r}
reuniao=projetosmensal %>% filter(STATUS!="NOVO") %>% filter(CATEGORIA=="Reunião")
reuniao=sum(na.omit(reuniao$MINUTAGEM))
valueBox(value = reuniao,icon = "fa-clock",caption = "Minutos em reuniões no mês",color = "#00AE9D")
```
### Projetos feito no mês
```{r}
nprojetos=projetosmensal %>% filter(STATUS!="NOVO") %>% filter(CATEGORIA %in% "Projeto"); nprojetos=length(levels(factor(nprojetos$MACROPROCESSO)))
valueBox(value = nprojetos,icon = "fa-list",caption = "Total de projetos feito no mês",color = "#49479D")
```
### Total de Análises de patrocínios entregues no mês
```{r}
patrocinio=projetosmensal %>% filter(STATUS!="NOVO") %>% filter(CATEGORIA=="Patrocínio
") %>% nrow()
valueBox(value = patrocinio,icon = "fa-users",caption = "Análise de patrocínio entregue no mês",color = "orange")
```
### Entregas de Mídias-off
```{r}
midiasoff=projetosmensal %>% filter(STATUS!="NOVO") %>% filter(CATEGORIA=="Mídia_off"); midiasoff=length(levels(factor(midiasoff$MACROPROCESSO)))
valueBox(value = midiasoff,icon = "fa-user-plus",caption = "Entregas de Mídias-off no mês",color = "coral")
```
Row
-----------------------
### Serviços prestados
```{r}
proporcaoprodutos=data.frame(table(projetosmensal$CATEGORIA))
names(proporcaoprodutos)=c("Funcionário", "Quantidade")
# Create Data
data <- data.frame(
group=proporcaoprodutos$Funcionário,
value=proporcaoprodutos$Quantidade
)
plot_ly(data, labels = ~group, values = ~value) %>%
add_pie(hole = 0.6) %>%
layout(xaxis = list(showgrid = FALSE, zeroline = FALSE, showticklabels = FALSE),
yaxis = list(showgrid = FALSE, zeroline = FALSE, showticklabels = FALSE))
```
### 10 Pontos focais que mais pedem
```{r}
pecas_acumuladas=data.frame(table(projetosmensal$`PONTO FOCAL`))
if(nrow(pecas_acumuladas)==0){
print("Não houve pedidos de pontos focais")
} else{
plot_ly(pecas_acumuladas, x = ~reorder(Var1, -Freq), y = ~Freq, type = 'bar', name = 'SF Zoo') %>%
layout(barmode = 'group', xaxis = list(title = "Ponto focal"), yaxis = list(title="Quantidade de peças pedidas"))
}
```
### 10 cooperaivas que mais pedem
```{r}
demandas_cooperativas=data.frame(table(audiovisualmensal$`COOPERATIVA SOLICITANTE`))
names(demandas_cooperativas)=c("Cooperativa", "Frequência")
demandas_cooperativas=demandas_cooperativas %>% arrange(Frequência)
n=demandas_cooperativas %>% nrow()
if(n>10){
demandas_cooperativas=demandas_cooperativas %>% slice((n-10):n)
}
p <- plot_ly(demandas_cooperativas, x = ~reorder(Cooperativa, -Frequência), y = ~Frequência, type = 'bar', name = 'SF Zoo') %>%
layout(barmode = 'group', xaxis = list(title = "Cooperativas"))
p
```
Row
---------------
### Diagrama de Atividades e Projetos
```{r}
m=data.frame(table(projetosmensal$MACROPROCESSO, projetosmensal$CATEGORIA))
m=m %>% filter(Freq!=0)
# create a dataset:
data <- data.frame(
from=m$Var1,
to=m$Var2
)
# Plot
simpleNetwork(data, height="100px", width="100px",
Source = 1, # column number of source
Target = 2, # column number of target
linkDistance = 10, # distance between node. Increase this value to have more space between nodes
charge = -900, # numeric value indicating either the strength of the node repulsion (negative value) or attraction (positive value)
fontSize = 14, # size of the node names
fontFamily = "serif", # font og node names
linkColour = "#666", # colour of edges, MUST be a common colour for the whole graph
nodeColour = "#69b3a2", # colour of nodes, MUST be a common colour for the whole graph
opacity = 0.9, # opacity of nodes. 0=transparent. 1=no transparency
zoom = T # Can you zoom on the figure?
)
```
### Os 10 não Pontos-focais que mais pedem
```{r}
demandas_cooperativas=data.frame(table(projetosmensal$`QUEM ABRIU O CHAMADO? (CASO N SEJA O PONTO FOCAL)` ))
names(demandas_cooperativas)=c("Cooperativa", "Frequência")
demandas_cooperativas=demandas_cooperativas %>% arrange(Frequência)
n=demandas_cooperativas %>% nrow()
if(n>10){
demandas_cooperativas=demandas_cooperativas %>% slice((n-10):n)
}
p <- plot_ly(demandas_cooperativas, x = ~reorder(Cooperativa, -Frequência), y = ~Frequência, type = 'bar', name = 'SF Zoo') %>%
layout(barmode = 'group', xaxis = list(title = "Cooperativas"))
p
```
Redator
=====================================
Row {data-width=150}
--------------------------------------
### Total de serviços executados no ano
```{r}
totalvideos=audiovisual %>% filter(STATUS!="NOVO") %>% filter(!CATEGORIA %in% c("Dúvidas/Envio", "Captação")) %>% nrow()
valueBox(value = totalvideos,icon = "fa-calendar",caption = "Total de vídeos feito no ano",color = "#7DB61C")
```
### Total de serviços prestados no mês
```{r}
videosmensal=audiovisualmensal %>% filter(STATUS!="NOVO") %>% nrow()
valueBox(value = videosmensal,icon = "fa-thumbs-up",caption = "Total de vídeos feito no mês",color = "#00AE9D")
```
### Total de captações feitas
```{r}
captacao=audiovisual %>% filter(STATUS!="NOVO") %>% filter(CATEGORIA %in% "Captação") %>% nrow()
valueBox(value = captacao,icon = "fa-camera",caption = "Total de captação feita no mês",color = "#49479D")
```
### Total de minutos editados no mês
```{r}
minutoseditado=audiovisualmensal %>% filter(STATUS!="NOVO"); minutoseditado=sum(na.omit(minutoseditado$MINUTAGEM))
valueBox(value = minutoseditado,icon = "fa-clock",caption = "Total de minutos editados",color = "orange")
```
### Quantidade de alterações feita no mês
```{r}
alteracoes=audiovisualmensal %>% filter(STATUS!="NOVO"); alteracoes=sum(na.omit(alteracoes$`Nº DE ALTERAÇÕES`))
valueBox(value = alteracoes,icon = "fa-user-plus",caption = "Quantidade de alterações feita no mês",color = "coral")
```
Row
-----------------------